﻿Imports System
Imports System.Reflection

Namespace System.Workflow.Activities.Rules
    Friend Class RuleFieldExpressionInfo
        Inherits RuleExpressionInfo
        ' Methods
        Friend Sub New(ByVal fi As FieldInfo)
            MyBase.New(fi.FieldType)
            Me.fieldInfo = fi
        End Sub


        ' Properties
        Friend ReadOnly Property FieldInfo As FieldInfo
            Get
                Return Me.fieldInfo
            End Get
        End Property


        ' Fields
        Private fieldInfo As FieldInfo
    End Class
End Namespace

